Shovit Bhari
6/15/2020
Here is a link to my Gapminder data Shinyapp.
library(ggplot2);library(gapminder);library(plotly)
lifeexp<-gapminder %>%
group_by(continent, year) %>%
filter(continent == 'Oceania')
g1<- ggplot(lifeexp, aes(x=year, y=lifeExp, color=country)) +
geom_point(aes(color=country)) +
geom_smooth(aes(fill= country), method="lm", formula= y~x) +
xlab("Year") +
ylab("Life Expectancy (years)")
p1 <- ggplotly(g1)
p1
Some Links